3 года назад

найти сумму элементов целочисленного массива. помогите пожалуйста программу составить на паскале

Знания

Информатика

1 ответ:

Galareq [150]3 года назад

0 0

var k:array[1..10] of integer;

var s:real;

var i:integer;

begin

for i:=1 to 10 do begin

k[i]:=round(10*random+3);

s:=s+k[i];

end;

write('Сумма массива = ', s);

writeln

end.

Должно работать, проверьте.

Читайте также

Написать программу, которая вводит массив из 8 целых чисел и выводит на экран элементы с четными номерами

kick1235 [1]

Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.

0 0

1 год назад

Дан массив из 10 элементов -случайных чисел из диапазона [-30;30].1,Подсчитать в нем кол-во элементов, равных заданному числу.2,

Никита Симахин [483]

1)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=random(10);
Write(A[i]:4);
end;
Writeln;
Writeln('Введите число: ');
Readln(s);
For i:=1 to n do
begin
If A[i]=s then k:=k+1;
end;
Writeln('Число ',s,', его кол-во в массиве: ',k,' шт.');
<span>END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,min,mini,max,maxi:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
max:=A[1];
min:=A[1];
For i:=1 to n do
begin
if A[i]>max then
begin
maxi:=i;
max:=A[i];
end;
if A[i]<min then
begin
mini:=i;
min:=A[i];
end;
end;
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
<span>END.</span></span>

0 0

4 года назад

большая,круглая,вращается вокруг земли

Лариса Саенко

Вокруг земли нечего не вращается

0 0

4 года назад

Что такое управление?Выберите самое полное определение. А.Перевод объекта из одного состояния в другое; Б.Процесс целенаправленн

sseerr

Перевод объекта из одного состояние в другое!
Это элементарно!

0 0

4 года назад

Паскаль.Известно, что первые два элемента массива равны a и b. А каждый следующий элемент равен сумме значений всех предыдущих э

yanchuk38 [14]

Var n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.

0 0

4 года назад