СРОЧНО!!! Нужно написать код в PascalABC.NET со статическим массивом. А если быть точнее - Создать массив из N-двузначных чисел и определить сумму рандомных чисел
25qwerty88174:
числа рандомные?
да
пользователь задает N (то есть, количество чисел)? Если да, то это уже не статический массив
вы статический с динамическим перепутали или как?
var A:ARRAY[1..M] of integer
мб так
я не шарю за ивт)
ок тогда для динамического напишу
Ответы
Ответ дал:
1
program ex_1;
var N, S, i: Integer;
Arr: array of Integer;
begin
randomize;
write('Введите N: ');
read(N);
SetLength(Arr, N);
write('Массив: ');
for i := 0 to N-1 do begin
Arr[i]:=random(90)+10;
write(Arr[i],' ');
S+=Arr[i]
end;
writeln;
write('Сумма: ', S);
end.
если статика, то вот(N задается в программе)
program ex_1;
const N = 10;
var S, i: Integer;
Arr: array[0..N] of Integer;
begin
randomize;
write('Массив: ');
for i := 0 to N-1 do begin
Arr[i]:=random(90)+10;
write(Arr[i],' ');
S+=Arr[i]
end;
writeln;
write('Сумма: ', S);
end.
const N = 10;
var S, i: Integer;
Arr: array[0..N] of Integer;
begin
randomize;
write('Массив: ');
for i := 0 to N-1 do begin
Arr[i]:=random(90)+10;
write(Arr[i],' ');
S+=Arr[i]
end;
writeln;
write('Сумма: ', S);
end.
*во второй строке N-1 вместо N
в четвертой тоочнее
Вас заинтересует
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад