program Average;
var
a: array [1..10, 1..10] of Real;
i, j: Integer;
s: Real;
begin
Randomize;
for i := 1 to 10 do begin
WriteLn;
for j := 1 to 10 do begin
a [i, j] := Random (100);
Write (a [i, j] :6 :2);
end;
end;
s := 0;
for i := 1 to 10 do begin
for j := 1 to 10 do begin
s := s + a [i, j];
end;
end;
s := s / 100;
WriteLn;
WriteLn ('Среднее = ', s :6 :2);
for i := 1 to 10 do begin
for j := 1 to 10 do begin
if a [i, j] < s then
a [i, j] := s;
end;
end;
for i := 1 to 10 do begin
WriteLn;
for j := 1 to 10 do begin
Write (a [i, j] :6 :2);
end;
end;
ReadLn;
end.
Объяснение:
using System;
public class Program
{
public static void Main()
{
int[] A = new int[30];
var rand = new Random();
for(int i = 0; i < 30; i ++) // Заполняем в цикле массив случайными числами от 0 до 100
A[i] = rand.Next(0, 100);
int kolichestvo, summa;
kolichestvo = 0;
summa = 0;
for(int i = 0; i < 30; i ++) //цикл по элементам массива
{
if((A[i] % 5) == 0)// операция "%" - остаток от деления, если = 0 значит поделилось нацело, если не равно нулю, значит поделилось с остатком
{
if((A[i] % 3) != 0)
{
kolichestvo = kolichestvo + 1;
summa = summa + A[i];
}
}
}
Console.Write("Сумма: ");
Console.Write(summa);
Console.Write(" Количество: ");
Console.Write(kolichestvo);
}
}
B:=18 // Переменной B(стаканчики) присваивается значение 18
A:= B/3 // Переменной А(эскимо) присваивается значение в 3 раза меньшее за переменную B
B:=B-3 // От переменной B вычитают 3
A:=A-5 // От переменной А вычитают 5
// Результат:
покажи A // A=1
покажи B // B=15
конец