Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, j, k, min : integer;
a: array[1..10, 1..20] of integer;
b: array[1..10] of integer;
begin
for i: =1 to 10 do
for j: =1 to 20 do
readln(a[i,j]);
b[i]: =0;
b[i]: =b[i]+a[i,j];
end;
min: =b[1]; k: =1;
for i: =2 to 10 do
if b[i]< min then begin max: =b[i]; k: =i end;
writeln('наименьшая сумма элементов =', min);
writeln('она находится в строке -', k);
readln
end.
program m;
uses crt;
var a,b,c,sum: integer;
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
1)false (т.к. x> y)
2)true (x< y,x не равен y)
3)false(x> y)
4)true(т.к. x=y, x не равен y)
1 -6 февраля. / понедельник.
2 - иа.
3 - число "1"
4 - печка.
5 - клюв.
6 - царь.
7 - марка.
8 - 10 гласных,21 согласная буква.(всего 33 буквы). - твёрдый,мягкий знак - не согласная не гласная.
Популярные вопросы