Дан массив из 10 целых чисел от - 20 до 20 и целое число (вводится с клавиатуры).

Напишите программу, определяющую, сколько в массиве чисел.

Question

Информатика

Млада

13 апреля, 19:46

Дан массив из 10 целых чисел от - 20 до 20 и целое число (вводится с клавиатуры).

Напишите программу, определяющую, сколько в массиве чисел.

+5

Ответы (1)

Знаете ответ?

Елисавета · Answer 1

Program chik;

var a:array[1 ... 1000]of integer;

max, p, i:integer;

begin

for i:=1 to 10 do

begin

read (a[i]) ;

end;

max:=1; p:=1;

for i:=2 to 10 do

begin

if (a[i]>max) then begin

max:=a[i];

p:=i;

end;

end;

write (max,' ', p) ;

end.

Дан массив из 10 целых чисел от - 20 до 20 и целое число (вводится с клавиатуры).Напишите программу, определяющую, сколько в массиве чисел.

Дан массив из 10 целых чисел от - 20 до 20 и целое число (вводится с клавиатуры).

Напишите программу, определяющую, сколько в массиве чисел.