Калькулятор на компьютере выбираешь вид И в низу будет вычисление даты.
<span>1232345678910 + 1234567910 = </span>1233580246820
<u><em>15000 пикселей; 29,3 Кбайт=29,3*1024=30000 байт; 30000 / 15000=2 бита на пиксел; закодировать 4 цвета. я думаю так </em></u>
1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
<span>end.
2)</span>var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
for i:=1 to n do begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
<span>end.</span>
Program qq;
var col, out, i: integer;
arr: array[1..100] of integer;
begin
write('Количество элементов: ');
readln(col);
write('Введите числа: ');
out := 0;
for i := 1 to col do readln(arr[i]);
writeln;
write('Положительных чисел: ');
for i := 1 to col do begin
if(arr[i] > 0) then out := out + 1;
end;
write(out);
end.
-----
В вашем же решении вы не указали переменную k, т.е. у вас нет k := 0; и после выполнения условия if не нужно писать end;
