Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Массив a[1...10] найти сумму элементов >6 и нечетные

Ответ оставил Гость

Program prog;
uses crt;
var a:array[1..10] of integer;
    s,i: integer;
   
begin
clrscr;

for i:=1 to 10 do begin
 write(a[,i,] = );
 readln(a[i]);
 end;
 
 for i:=1 to 10 do begin
 if (a[i] mod 2 = 1) and (a[i]>6) then
 s:=s+a[i];
 end;

 writeln(Сумма чисел s = , s);
 
 end.