Массивы в Паскале
Создание массива: var a:array [1..5] of integer; i:integer; begin for i:=1 to 5 do begin write ('a[',i,']='); readln(a[i]); end; end.
Создание массива: const n=20; var a:array [1..n] of integer;i :integer; begin for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; end.
Найти сумму положительных элементов массива. const n=4; var a:array [1..n] of integer;i,s:integer; begin for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; for i:=1 to n do begin if a[i]>0 then s:=s+a[i]; end; writeln ('сумма=',s); end.
Найти количество положительных элементов массива. const n=4; var a:array [1..n] of integer;i,s:integer; begin for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; for i:=1 to n do begin if a[i]>0 then s:=s+1; end; writeln (количество=',s); end.
Дан массив. Сообщить элементы массива, кратные М. const n=4; var a:array [1..n] of integer;i,M:integer; Begin writeln (введи М); readln (M); for i:=1 to n do begin write ('a[',i,']='); readln (a[i]); end; for i:=1 to n do begin if a[i] mod M =0 then writeln (a[i]); end; end.