Вопрос по информатике:
С клавиатуры вводится число N, а за ним N элементов массива состоящего из целых чисел.Проверить, все ли элементы массива положительны. Если да, то ввести фразу "ДА", в противном случае-"Нет".
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.03.2018 10:00
- Информатика
- remove_red_eye 16772
- thumb_up 70
Ответы и объяснения 2
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.
- 27.03.2018 05:33
- thumb_up 31
Const
C = 100;
var n, i : Integer;
a : array [1..C] of Integer;
flag : Boolean;
begin
Write('N: ');
Readln(n);
if (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.
- 28.03.2018 13:24
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.