Var a: array[1..1000]of integer; b: array[1..1000]of integer; i,n,summ: integer; begin writeln('введите кол-во цифр'); readln(n); writeln('введите цифры'); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if (a[i]> =10)and (a[i]< 100) then b[i]: =a[i]; end; for i: =1 to n do begin if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 4=0) then summ: =summ+a[i]; end; for i: =1 to n do begin if b[i]> 0 then write(b[i],' '); end; writeln; write('сумма 3-х значных чисел кратных 4=',summ); end.
Kochetova92
16.08.2022
Const n = 5; m = 5; var a: array [0..m, 0..n] of shortint; i, b, c: integer; begin for i : = 1 to m do begin for b : = 1 to n do begin a[i, b] : = random(-90, 0); write(a[i, b]: 4); if (i = m) then if (a[i, b] mod 4 = 0) then c += 1; end; writeln( (i = m) and (b = n) ? ' ' + c : ''); end; writeln(); end.
имя программы program
начвло конец begin и end
пременая var
целое число integer
вывод write
вывод с новой writeln
модуль числа abs
синус числа sin
косинус cos
логарифм числа ln
вычесление пи pi
возведение в квадрат sqr
и квадратный корень числа sqrt