4 года назад

Найти сумму элементов массива. Массив состоит из 20 элементов. Элементы массива целые числа от -20 до 20.

1 ответ:

0 0

Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;

Это все что я помню...

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

Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это

Николай Хромов

Var a,a1,a2,a3,a4:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифра тысяч - ',a1);
writeln('цифра сотен - ',a2);
writeln('цифра десятков - ',a3);
writeln('цифра единиц - ',a4);
end.

Пример:
a = 1234
цифра тысяч - 1
цифра сотен - 2
цифра десятков - 3
цифра единиц - 4

0 0

4 года назад

Элементарный состав компьютера

Advanta [12.6K]

Системный блок:
-корпус
-блок питания
-материнская плата
-процессор
-видеокарта
-оперативка
-жесткий диск
-дисководы
Монитор
Мышка
Клавиатура

0 0

3 года назад

Решите задачу на языке Pascal. Дано двухзначное число. Найти сумму и произведение его цифр.

Ирина Петрована

Var
a,b,c,sum,pr:longint
begin
read(a);
b:=a div 10;
c:=a mod 10;
sum:=b+c;
pr:=b*c;
write(sum,' ',pr);
end.

0 0

4 года назад

Задача; Подставить к записи 54*5* вместо звездочер такие цифры, чтобы полученное пятизначное число делилось на 45.

борхесе [50]

var
j,i: integer;
begin
for i:= 0 to 9 do
begin
for j:=0 to 9 do
begin
if ((54*100+i*10+5)*10+j) mod 45 = 0 then writeln((54*100+i*10+5)*10+j);
end;
end;
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Составьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: а) среднее арифметическое неч

IolantaS

Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
<span>End.</span>

0 0

4 года назад