Скласти підпрограму-функцію,яка підраховує кількість елементів одновимірного масива,які перевищують мінімальне додатне значення.Використовуючи підпрограму,перетворити стовпці матриці А так:якщо кількість вказаних елементів більша за 3,то всі додатні елементи відповідного стовпця розділити на 2.,мова Паскаль
Будь-ласка пояснення
print("Введите год:", end=' ')
year = int(input())
if (year % 100 > 0):
century = year // 100 + 1
else:
century = year // 100;
print("Этот год относится к", century, "-му столетию.")
Объяснение:
print("Введите год:", end=' ') // Вывод текста в консоль
year = int(input()) // Создание + ввод целочисленной переменной
if (year % 100 > 0): // Если остаток от деления year на 100 > 0
century = year // 100 + 1 /// Переменная century = целочисленному делению year на 100 + 1
else: // Иначе
century = year // 100 /// Переменная century = целочисленному делению year на 100
print("Этот год относится к", century, "-му столетию.") // Вывод ответа в консоль
end=' ' не дает сделать перенос строки после print
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.