63

1. Дан массив натуральных чисел. Найти сумму элементов кратных данному К. 2. В…

04 марта 2023

1. Дан массив натуральных чисел. Найти сумму элементов кратных данному К. 2. В целочисленной последовательности есть нулевые элементы. Создатьмассив из номеров этих элементов.

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



55

1.Program num1; Uses crt; Var a: array [1… 100] of integer; i,k,n, s: integer; Begin clrscr; s: =0; write ('K='); readln (k); write ('N='); readln (n); for i: =1 to n do readln (a[i]); for i: =1 to n do if (a[i] MOD k)=0 then s: =s+a[i]; writeln ('S=',s); End. 2.Program num2; Uses crt; Var a: array [1… 100] of real; i,n,j: integer; x: array [1… 100] of real; Begin clrscr; write ('n='); readln (n); for i: =1 to n do readln (a[i]); j: =1; for i: =1 to n do if a[i]=0 then begin x[j]: =i; j: =j+1 end; for i: =1 to j-1 do write (x[i],'); End. 3. Program num3; Uses crt; VAr a: array [1… 100] of real; i,n: integer; Begin clrscr; write ('n='); readln (n); for i: =1 to n do readln (a[i]); for i: =1 to n do begin if a[i]<>0 then if a[i]>0 then begin writeln ('Положительное встречается раньше'); break end else begin writeln ('Отрицательное встречается раньше'); break end; end; End. 4.Program num4; Uses crt; Var a: array [1… 100] of real; i, n, j: integer; Begin clrscr; write ('n='); readln (n); a[n+1]: =a[n]+1; for i: =1 to n do readln (a[i]); j: =0; i: =1; while i

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


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