С клавиатуры вводится число N, а за ним N элементов массива состоящего из целых...

0 голосов
73 просмотров

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


Информатика (17 баллов) | 73 просмотров
0

Динамические массивы проходили?

0

Нет, щас повторение прошлого года!

Дано ответов: 2
0 голосов
Правильный ответ

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.



(1.6k баллов)
0

Можно указать n вместо 50 в array'e, но тогда нельзя будет ввести n с клавиатуры, в следствии чего придется указать ее как константу

0 голосов

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.

(1.1k баллов)
0

а за ним N элементов массива состоящего из целых чисел

0

он уже состоит) Так что вводить элементы с клавиатуры не корректно))

0

А с булеаеном у меня тоже идейка была)) Но так интереснее))

0

Тьфу

0

Легче, а не интереснее.

0

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

0

Трактовка, трактовочка задания и мне не всегда понятна)) не буду настаивать на своей точке зрения, но думаю, что моя задача проще и под школьный уровень, а твоя ближе под "красиво оформленную" программку для курсовухи смахивает :D