массив

[Ия Ильина]

1. дан массив состоящий из 20 элементов. заполнить его с клавиатуры. найти:
-сумму элементов имеющих нечетное значение;
-вывести индексы тех элементов, значения которых больше заданного числа А.

2. определить есть ли в данном массиве положительные элементы, кратные K (K вводить с клавиатуры)

[VIK_aka_TOR]

вот первое...

var 
b: array [1..20] of integer; 
i,k,a,s: integer;
begin
  for i:=1 to 20 do
    begin
      write('b[',i,']=');
      readln(b[i]);
    end;
  // находим сумму нечетных
  s:=0;
  for i:=1 to 20 do
    if ((b[i] mod 2) = 1) then
    s:= s + b[i];
    writeln('Сумма нечетных элементов: ', s);
  // индексы которые больге А
 write('Введите А ');
 readln(a);
 writeln('индексы чисел больших А=',a);
 for i:=1 to 20 do
 if b[i] > a then
 writeln(i);
end.

[VIK_aka_TOR]

во втором проверка будет следующей:

const n:= ваше_число;
var
b: array [1..n] of integer;
flag: boolean;
..............
readln(k);
flag:= false;
for i:=1 to n do // n - количество элементов
if (( b[i] mod k ) = 0) and (b[i] > 0) then
begin 
flag:= true;
break;
end;

if flag then
writeln("кратные числа есть")
else 
writeln("нету");

[Ия Ильина]

flag: boolean;
..............
readln(k);
flag:= false;


что это означает? мы такого еще не проходили!

[VIK_aka_TOR]

это собственно булевская переменная... много точек это так.. тобишь перед этим ваш ввод с клавы...
заменить flag можно тогда на переменную числового значения тогда будет вид:

const n:= ваше_число;
var
b: array [1..n] of integer;
index: integer;
..............
readln(k);
index:=0;
for i:=1 to n do // n - количество элементов
if (( b[i] mod k ) = 0) and (b[i] > 0) then
begin 
index:=1;
break;
end;

if index = 1 then
writeln("кратные числа есть")
else 
writeln("нету");

[Ия Ильина]

break что значит?

[ByAlex]

Первая -

program ProjectMatrixSchet;
uses
  SysUtils;
const
  n=20;
var
  Arr:array[1..n] of Integer;
  Sum,i,A:Integer;
begin
  sum:=0;
  writeln('Input 20 elements of massive:');
  for i:=1 to n do
  begin
    write('Mas[',i,'] = ');
    readln(Arr[i]);
    if (Arr[i] mod 2)<>0 then
      Sum:=sum+Arr[i];
  end;
  Writeln('Summa = ',sum);
  write('Input number A = ');
  readln(A);
  write('Indexes - ');
  for i:=1 to n do
    if Arr[i]>A then
      write(i,' ');
  readln;
end.

[Ия Ильина]

var b: array [1..20] of integer;
index,i, k: integer;
begin
for i:=1 to 20 do
begin
write ('b[',i,']=');
readln (b[i]);
end;
writeln('введите k');
readln(k);
index:=0;
for i:=1 to 20 do
if (( b[i] mod k ) = 0) and (b[i] > 0) then
writeln('да')
else
writeln('нет');
end.

я написала
но он мне выдает к каждому элементу ответ да или нет
а как сделать чтобы в целом говорил?

[Ия Ильина]

спасибо, первую я уже решила

[VIK_aka_TOR]

Сообщение от Ия Ильина

var b: array [1..20] of integer;
index,i, k: integer;
begin
for i:=1 to 20 do
begin
write ('b[',i,']=');
readln (b[i]);
end;
writeln('введите k');
readln(k);
index:=0;
for i:=1 to 20 do
if (( b[i] mod k ) = 0) and (b[i] > 0) then
writeln('да')
else
writeln('нет');
end.


я написала
но он мне выдает к каждому элементу ответ да или нет
а как сделать чтобы в целом говорил?

я же вам написал фрагмент... вот так он будет выглядеть целиком:

var b: array [1..20] of integer;
index,i, k: integer;
begin
for i:=1 to 20 do
begin
write ('b[',i,']=');
readln (b[i]);
end;
writeln('введите k');
readln(k);
index:=0;
for i:=1 to 20 do
if (( b[i] mod k ) = 0) and (b[i] > 0) then
begin
index:=1;
break;
end;
if index=1 then
writeln('да')
else
writeln('нет');
end.