Решить : дан вектор из 25 элементов. найти минимальное значение. записать на языке pascal и построить алгоритм.

151

264

Посмотреть ответы 2

Ответы на вопрос:

ника2761

Информатика

4,4(58 оценок)

Program chik; var a: array[1..100]of integer; i,min: integer; begin for i: =1 to 25 do begin read(a[i]); end; min: =a[1]; for i: =2 to 25 do begin if(a[i]< min)then min: =a[i]; end; write(min); end.

Luuunar

Информатика

4,8(33 оценок)

Program myprogram; var x, i: integer; a: array [1..15] of integer; begin for i: =1 to 15 do read(a[i]); // вводите числа массива for i: = 1 to 15 do if a[i] mod 2 < > 0 then x: =x+1; writeln(x); end.