срочно помогите решить! дам много пунктов!!! пожалуйста, зачет ...
срочно помогите решить! дам много пунктов!!! пожалуйста, зачет по информатике!! в qBasiq
Вариант № 1
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры.
1. Найти:
- сумму элементов, имеющих нечетное значение;
- вывести индексы тех элементов, значения которых больше заданного числа А.
2. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
Есть ответ
18.12.2022
439
Ответ
Program Pr1;uses crt;var mas:array[1..20] of integer; i,v,a,k,x:integer;Beginclrscr;writeln('Vvedite A');readln(a);writeln('Vvedite K');readln(k);for i:=1 to 20 do begin writeln('Vvedite ',i,'-ji simvol'); readln(mas[i]); end;v:=0;x:=0;for i:=1 to 20 do begin if mas[i] mod 20 then v:=v+mas[i]; if mas[i]>a then writeln('>a ',i); if (mas[i] mod k=0) and (mas[i]>0) then x:=x+1; end;writeln('Summa nechetnih - ', v );if x>0 then writeln('TRUE')else writeln('FALSE');end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022
