Срочно!!!!люди помогите решается оценка ПОЖАЛУЙСТА!!!! 1) Дан массив натуральных чисел.Найти сумму элементов кратных данному К. 2) В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элеме...
Срочно!!!!люди помогите решается оценка ПОЖАЛУЙСТА!!!!
1) Дан массив натуральных чисел.Найти сумму элементов кратных данному К.
2) В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов .
В ПАСКАЛЕ СДЕЛАТЬ ПРОГРАММУ ПОЖАЛУЙСТА
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы