1.
var x, i: integer;
var c : array[1..31] of boolean;
begin
c := 0;
for i:= 1 to 31 do c[i] := false;
for i := 1 to 31 do begin
readln(x); if (x = 0) then c[i] := true;
end;
writeln('В следующие дни не было осадков: ');
for i:= 1 to 31 do if (c[i]) then writeln(c[i]);
readln(i);
end.
2.
var x,i,n,c: integer;
begin
realn(n);
for i:= 1 to n do
begin
readln(x); if (x < 0) then c := c + x;
end;
writeln('Ответ: '); write(c);
readln(x);
end.
P.S. На паскале не писал давно. Код не компилировал (ибо его сюда копипастить без последствий нельзя.), так что могут быть незначительные ошибки. + сразу говорю (как программист с некоторым опытом и будучи уже не школьником) - код го*но. Так никто не делает, так никто не пишет, но для "школьного паскаля" достаточно
Создается матрица 10х10, заполняется случайными числами от 0 до 100, выводит исходную матрицу и Max элемент.
<span>1) - Д
2) - ОТВЕТА НЕТУ!
3) - Г
4) - Б
5) - А
______________________________________________________________
</span>Нажми "Спасибо" и оцени мой ответ, ведь я старался. Удачи!
... Каждый начал приводить аркументы, мол, я лучше потому-то - потому-то.
Без клавиатуры мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер, без монитора мы бы не смогли видеть эту самую информацию, без памяти мы бы не могли сохранить ее (информацию), а без процессора и вовсе компьютер не стал бы работать.
И клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал.
Сut Paste Foto-хороший монтировщик фото,для видео-VivaVideoPro