49

Срочно помогите решить! Дам много пунктов! Пожалуйста, зачет по информатике! В qBasiq…

25 февраля 2023

Срочно помогите решить! Дам много пунктов! Пожалуйста, зачет по информатике! В qBasiq Вариант №1

категория: информатика

78

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 2<>0 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.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...