Регистрация
pomogitejaslomalsya
28.01.2021 03:38
Информатика
Есть ответ 👍

Сколько операторов можно записать после служебных слов then и else?

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

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

илья1967
илья1967
4,6(23 оценок)

if then,тогда 1 оператор

если if then begin < условие1> ; < условие2> ; end;

тогда можно писать бесконечное кол-во   операторов

TvoePolusladkoe
TvoePolusladkoe
4,7(34 оценок)
Значит нудная программа с простым алгоритмом. печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s. program test; uses crt; var   arr: array[1..8,1..8] of integer;   i,j,cou,pr,s,sum: integer; begin   clrscr;   randomize;   pr: =1;   s: =7;   for i: =1 to 8 do   begin     for j: =1 to 8 do       begin         arr[i,j]: =random(127)+2;         write(arr[i,j],' ');       end;     writeln;   end;   writeln;   for i: =1 to 8 do   for j: =1 to 8 do     begin       if (arr[i,j]> 18) and (arr[i,j]< 60) then         begin           cou: =cou+1;           arr[i,j]: =0;         end;       if i=j then         begin           pr: =pr+arr[i,j];           write(arr[i,j],' ');         end;       if j=s then         sum: =sum+arr[i,j];     end;   writeln; writeln;   for i: =1 to 8 do   begin   for j: =1 to 8 do     write(arr[i,j],' ');   writeln;   end;   writeln;   writeln(cou);   writeln(pr);   writeln(sum); readln; end.

Популярно: Информатика