2) USES CRT; VAR A:array[0..200] of integer; i,max,s:integer; BEGIN CLRSCR; Randomize; Writeln('Дан массив:'); for i:=0 to 200 do begin A[i]:=-100+random(150); Write(A[i],' '); end;
s:=0; max:=A[0];
for i:=0 to 200 do begin if A[i] > max then max:=A[i]; if A[i]>=0 then s:=s+1; end;
Writeln; Writeln('Максимальный элемент массива = ', max); Writeln('Кол-во положительных элементов = ',s); READLN; END.
Начинает страдать осанка человека, в особенности это относится к пользователям настольных компьютеров. Даже если человек следит за своей спиной, часы интернет-баталий сделают свое дело и человек все же начнет горбатиться и сутулиться. В последствии это приведет в лучшем случае к незначительной степень остеохондроза спины и шейного отдела позвоночника. Болезнь довольна коварная, во-первых возможно визуальное искажение, во-вторых боли в спине, шее, защемления нервных окончаний и даже воспаление защемленного нерва. Вылечить остеохондроз не просто.
USES CRT;
VAR A:array[0..200] of integer;
i,max,s:integer;
BEGIN
CLRSCR;
Randomize;
Writeln('Дан массив:');
for i:=0 to 200 do
begin
A[i]:=-100+random(150);
Write(A[i],' ');
end;
s:=0;
max:=A[0];
for i:=0 to 200 do
begin
if A[i] > max then max:=A[i];
if A[i]>=0 then s:=s+1;
end;
Writeln;
Writeln('Максимальный элемент массива = ', max);
Writeln('Кол-во положительных элементов = ',s);
READLN;
END.
.
Объяснение:
Начинает страдать осанка человека, в особенности это относится к пользователям настольных компьютеров. Даже если человек следит за своей спиной, часы интернет-баталий сделают свое дело и человек все же начнет горбатиться и сутулиться. В последствии это приведет в лучшем случае к незначительной степень остеохондроза спины и шейного отдела позвоночника. Болезнь довольна коварная, во-первых возможно визуальное искажение, во-вторых боли в спине, шее, защемления нервных окончаний и даже воспаление защемленного нерва. Вылечить остеохондроз не просто.