Sanekl9
В массив A[N] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К.
Посмотрите в чем ошибка, не получается сделать задачу.
Program ZD2;
var
a:array[1..100] of real;
i,n,k,c :integer;
begin
writeln ('Vvedite kolichestvo elementov massiva n= ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
c:=0;
for i:=1 to n do
if (a[i] mod k=0)
then c:=c+a[i];
writeln(c);
readln;
end.
Windtalkers
помогите мне с задачей
Составить программу заменяющую каждый из элементов T[i] массива T[n] минимальным среди I элементов данного массива
Windtalkers
var
a:array[1..100]of integer;
i,max,n,k:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
for i:=1 to n do
a[i]:=random(20);
writeln('ishodnyj massiv');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('vvedite nomer');
readln(k);
min:=a[1];
for i:=1 to k do
if a[i]>max then max:=a[i];
for i:=1 to n do
a[i]:=max;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.
DarveL
Sanekl9, вот поэтому ошибка.
После readln(n);
---
writeln ('Vvedite k= ');
readln(k);
добавлено спустя 4 минуты:
Windtalkers, xчет не совсем понятно "минимальным среди I элементов данного массива"
То есть вводят число I, которое от 1 до I фактически и среди них ищут минимальный и им заменяют текущий элемент массива?
