РЕШИТЕ ХОТЬ ЧТО-НИБУДЬ!

РЕШИТЕ ХОТЬ ЧТО-НИБУДЬ!: з 1. Линейные программы Напишите программу на ШАЯ. Вычислите значения следующих выражений: f=t*t/2+t2. Условный оператор (ветвление)

в избранное

s_s0k0l0v

05 марта 2023

3) VAR n, i: Integer; BEGIN n: =9; For i: =1 to n do Writeln (i,'*4=', i*4); END.4) VAR i, mx, kol: Integer; a: Array [1… 12] of Integer; BEGIN For i: =1 to 12 do Read (a[i]); mx: =a[1]; For i: =2 to 12 do If (mx < a[i]) then mx: =a[i]; For i: =1 to 12 do If (a[i]=mx) then Inc (kol); Writeln ('Макс. Элемент=', mx); Write ('В массиве их — ', kol); END.5) VAR i, j: Integer; b: Array [1… 6] of Array [1… 6] of Integer; BEGIN For i: =1 to 6 do begin For j: =1 to 6 do begin b[i][j]: =Random (99)+1; Write (b[i][j]: 3); End; Writeln; End; Writeln; For i: =1 to 6 do begin For j: =1 to 6 do begin If (i < j) then b[i][j]: =0; Write (b[i][j]: 3); End; Writeln; End; END.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?