Информатика 8 класс!
1. Перечислите обязательные операторы Pascal
2. Приведите форму записи оператора объявления переменных
3. Опишите переменные x,y целого типа, переменную а вещественного типа
4. Запишите оператор ввода для переменных с, в, к.
5. Запишите оператор вывода для переменной «а» с комментарием
6. Запишите оператор присваивания переменной х значения из диапазона 15 – 105
7. Составьте условный оператор для задачи: если переменная х равна 1, то увеличьте её значение на 3, иначе увеличьте значение переменной х в 2 раза
8. Запишите условный оператор для определения наибольшего из переменных к, m.
var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer;
begin
write('Введите n');Readln(n);
write('Введите m');Readln(m);
for i:=1 to n do begin
for j:=1 to m do вegin
A[i,j]:=random(100)-20;
write(A[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if (A[i,j] mod 3 =0) then begin
B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end;
for i:=1 to n do begin
if (B[i]=0) and (D[i]= 0) then B[i]:= -10;
write(B[i]:4);end;end.