program znanija;
uses CRT;
Var n,k,sum,ch,nch: integer;
sa: real;
M: Array[1..25] of integer;
begin
write('Ведите N: ');readln(n);
for k:=1 to 25 do
begin
M[k]:=random(n);
sum:=sum+M[k];
if (M[k] mod 2 = 0) then
begin
ch:=ch+1;
end else
begin
nch:=nch+1;
end;
end;
sa:=sum/25;
Writeln('Среднее арихметическое - ',sa);
Writeln('Сумма чисел - ', sum);
Writeln('Количество чётных - ', ch);
Writeln('Количество не чётных - ', nch);
writeln('--Числа--');
for k:=1 to 25 do
begin
Write(m[k],', ');
end
end.
Using System;
namespace chislaabc
{
class Program
{
static void Main(string[] args)
{
int a, b, c;
Console.WriteLine(“Введите число a”);
a = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(“Введите число b”);
b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(“Введите число c”);
c = Convert.ToInt32(Console.ReadLine());
if (a == b || a == c || b == c)
{
Console.WriteLine(«Есть хотя бы одна противоположная пара»);
}
else
{
Console.WriteLine(«Противоположных чисел нет»);
}
Console.ReadKey();
}
}
}
Кэша процессора является кэш - аппаратных средств , используемый центральным процессором (ЦП) от компьютера , чтобы уменьшить среднюю стоимость (время или энергию) , чтобы получить доступ к данным из основной памяти . Кэш - память является меньшей, более быстрой памятью, ближе к ядру процессора , в котором хранится копии данных из часто используемых основных ячеек памяти . Большинство процессоров имеют различные независимые кэши, в том числе инструкций и данных тайников , где кэш данных, как правило , организованы в виде иерархии более уровней кэш - памяти (L1, L2, L3, L4 и т.д.).
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив из 25 чисел, найти среднее арифметическое элементов массива, сумму массива и кол-во чётных и не чётных элементов массива. элементы вводятся с гсч.
A: array[1..25] of integer;
mean: real;
qodds, qevens, i: byte;
sum: integer;
begin
sum := 0;
qodds := 0;
qevens := 0;
randomize;
for i := 1 to 25 do
begin
A[i] := random(41)-20;
sum := sum + A[i];
if (A[i] mod 2 = 0) then
qevens := qevens + 1
else
qodds := qodds + 1;
write(A[i], ' ');
end;
writeln(#13 + 'Среднее арифметическое = ', (sum / 25):0:2);
writeln('Сумма = ', sum);
writeln('Четных = ', qevens);
writeln('Нечетных = ', qodds);
end.