Массивы в Паскале. Создание массива: 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. - презентация

1 Массивы в Паскале

2 Создание массива: 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.

3 Создание массива: 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.

4 Найти сумму положительных элементов массива. 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.

5 Найти количество положительных элементов массива. 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.

6 Дан массив. Сообщить элементы массива, кратные М. 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.