Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub

0 0

4 года назад

Дано: двовимірний масив дійсних чисел. Визначнте: добуток елементів, розміщених у непарних стовпцях.

Екатерина56 [171]

//Pascal ABC.NET v3.1 сборка 1172

Const
n=3;

Var
ma:array[1..n,1..n] of real;
i,j:integer;
r:real;
begin
randomize;
r:=1;
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=random(1,10);
if j mod 2<>0 then r:=r*ma[i,j];
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Res=',r);
end.

Пример работы кода<span>:
</span>Matrix:
5 3 3
2 2 5
10 2 4
<span>Res=6000</span>

0 0

1 год назад

Доступ к файлу www.net, расположенному на сервере org.ca, осуществляется по протоколу http. В таблице фрагменты адреса закодиров

Romindra [26.1K]

Правильный адрес: http://org.ca/www.net
Последовательность: ЕГБДАВЖ
Ответ: 3)

0 0

4 года назад

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

Вставьте пропущенные слова.Данные для справки.-условия,действия,описание,свойства,данные,память,последовательности,алгоритм.Алго

valeha

1)последовательность действии
остальные незнаю

0 0

4 года назад