Объяснение:
const
max_elements = 1000;
a = 1;
b = 15;
first_file_name = '1.txt';
second_file_name = '2.txt';
var
i, j, n, r:integer;
p:real;
ar:array[1..max_elements] of integer;
f1, f2:text;
begin
randomize;
writeln('Input n = ');
readln(n);
for i:=1 to n do begin
ar[i]:=random(b-a+1)+a;
end;
assign(f1, first_file_name);
rewrite(f1);
for i:=1 to n do begin
writeln(f1, ar[i]);
end;
close(f1);
assign(f2, second_file_name);
rewrite(f2);
for i:=1 to n do begin
p:=1;
for j:=1 to i do
p:=p*ar[j];
writeln(f2, p:0:0);
end;
close(f2);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
2.в заданном массиве из 20 случайных чисел на промежутке [1, 100] определить есть ли хотя бы один элемент, который является числом, кратным 7. если “да”, то вывести их , если нет, то вывести сообщение об этом. пример ввода пример вывода пример1 а[1]=7 a[8]=49 a[11]=42 пример2 заданных элементов в массиве нет
#include <cstdlib>
#include <ctime>
int main() {
srand (time(NULL));
int a[20];
for(int i=0; i<20; i++) a[i]=rand()%100+1;
for(int i=0; i<20; i++) if(a[i]%7==0) cout<<"a["<<i<<"]="<<a[i]<<endl;
return 0;
}