Склавиатуры вводится число n, а за ним n элементов массива состоящего из целых чисел.проверить, все ли элементы массива положительны. если да, то ввести фразу "да", в противном случае-"нет".

241

315

Посмотреть ответы 3

Ответы на вопрос:

liqwer

Информатика

4,6(56 оценок)

Const c = 100; var n, i : integer; a : array [1..c] of integer; flag : boolean; begin write('n: '); readln(n); if (n < 1) or (n > c) then begin write('ошибка, недопустимое число.'); exit; end; for i : = 1 to n do begin write('a[', i,']: = '); readln(a[i]); end; flag : = false; for i : = 1 to n do if a[i] < 1 then begin flag : = true; break; end; if flag then writeln('нет') else writeln('да'); readln; end.

maksshvanov

Информатика

4,8(45 оценок)

Program massivn; uses crt; type massiv=array[0..50] of integer; var a: massiv; n,i,k: integer; begin writeln('vvedite n'); readln(n); for i: =1 to n do begin a[i]: =random(100)-10; write(a[i]: 3); end; for i: =1 to n do if a[i]> 0 then k: =k+1; writeln; if k=n then writeln('da') else writeln('net'); end.