var i,j,t:byte; {описание двумерного массива} tarray:array[1..n,1..n] of integer;//например так
begin t:=0; {тут ввод двумерного массива} for i:=1 to n do for j:=1 to n do if tarray[i,j] > 5 then t:=t+1; writeln('В массиве ', t, ' элементов >5'); end.
Var a, b: integer; var c: string; begin writeln('Введите 1 число.'); readln(a); writeln('Введите 2 число.'); readln(b); writeln('Знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2 ЗАДАЧА var a, b: real; begin writeln('Зарабаток Пети:'); readln(a); writeln('Зарабаток Петрова:'); readln(b); if a>b then writeln('Петя заработал больше Петрова.') else if a=b then writeln('Петров и Петя заработали одинаково.') else writeln('Петров заработал больше Пети.'); writeln('Среднее: ', (a+b)/2); end.
var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
n=10;//кол-во элементов
var
i,j,t:byte;
{описание двумерного массива}
tarray:array[1..n,1..n] of integer;//например так
begin
t:=0;
{тут ввод двумерного массива}
for i:=1 to n do
for j:=1 to n do
if tarray[i,j] > 5 then t:=t+1;
writeln('В массиве ', t, ' элементов >5');
end.