Var a:array[1..5] of real; b,c:integer; max:real; begin c:=0; max:=-100; writeln('Введите числа'); for b:=1 to 5 do begin readln(a[b]); if (a[b]<0)and (a[b]>max) then begin max:=a[b]; c:=c+1; end; end; if c>0 then writeln('Максимум среди отрицательных чисел равняется ',max) else writeln('Нет отрицательных чисел'); end.
Вопрос №1: 1) - г 2) - а 3) - б 4) - д 5) - в вопрос №2: 1) - б 2) - в 3) - а 4) - д 5) - г вопрос №3: в,г вопрос №4: для ответа на этот вопрос необходимы картинки из условия, так что ответить без них не представляется возможным. вопрос №5: в вопрос №6: д вопрос №7: 1) - г 2) - в 3) - а 4) - д 5) - б вопрос №8: 1) - б 2) - а 3) - в вопрос №9: здесь,как и в вопросе №4 решающую роль играет рисунок,которого нет - ответа без него быть не может. вопрос №10: а,б,д вопрос №11: в - информационные компьютерные технологии с одновременным использованием нескольких видов информации.вопрос №12: все 3 варианта ответа имеют место быть верными, то есть все варианты верны.
Слово «мама» — особое слово, оно рождается вместе с нами.в языке любого народа есть это слово.место матери в нашей жизни особое.материнская любовь окрыляет, придает силы, вдохновляет на подвиг.слово «мама» становится равнозначным слову «жизнь». сколько художников, композиторов, поэтов создали замечательные произведения о маме! к сожалению, мы слишком поздно понимаем, что забыли сказать много хороших и добрых слов своей маме. чтобы этого не произошло, нужно дарить им радость каждый день и час. ведь дети – лучший подарок для них.
b,c:integer;
max:real;
begin
c:=0;
max:=-100;
writeln('Введите числа');
for b:=1 to 5 do
begin
readln(a[b]);
if (a[b]<0)and (a[b]>max) then begin
max:=a[b];
c:=c+1;
end;
end;
if c>0 then writeln('Максимум среди отрицательных чисел равняется ',max)
else writeln('Нет отрицательных чисел');
end.