Program z1
const n=30;
var a: array [1..n] of integer;s, i: integer;
begin
randomize;
for i:=1 to n doa[i]:= random (151)+50;for i:= 1 to n dos:=s+a[i];
writeln ('количество=',s);
readln;
end.
Необходимо биты перевести в байты, из байтов в килобайты.
128000бит:8 = 16000байт
16000байт÷1024=15.625кб
Теперь делим 242кб на 15.625кб/сек
Получается 15.488 секунд
using System;
namespace znanja
{
class Program
{
static void Main(string[] args)
{
int num = int.Parse(Console.ReadLine());
int[] array = new int[num];
array = Array.ConvertAll(Console.ReadLine().Split(' ', StringSplitOptions.RemoveEmptyEntries), int.Parse);
int count = 0;
for (int i = 0; i < num; i++)
{
if (array[i] > 0) count++;
}
Console.WriteLine(count);
}
}
}
Для наглядности, чтобы пользователи могли легко ознакомиться с информацией
var a:array[1..N] of integer;
s,K:integer;
begin
readln(K);
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if (a[i] mod K=0) then s:=s+a[i];
write(s);
end.