Program zadanie;
const lmax=10;
var n,i:integer; a:array [1..lmax] of integer; n1:real; flag: boolean;
begin
repeat
writeln('Введите длину массива меньше ',lmax);
read(n1);
until (n1>0) and (n1<=lmax) and (n1=round(n1));
n:=round(n1);
writeln('Введите целые элементы массива');
for i:=1 to n do
begin
repeat
read(n1);
if (n1<>round(n1)) then writeln('Введите ЦЕЛЫЙ элемент');
until (n1=round(n1));
a[i]:=round(n1);
end;
flag:=false;
i:=0;
repeat
i:=i+1;
if (a[i]mod 2=0) then
begin
flag:=true;
writeln('Номер первого четного элемента - ',i);
end;
until flag or (i=n);
if (flag=false) then writeln('0')
end.
using System;
using System.Linq;
namespace Interesting {
class Program {
static void Main(params int[] a) {
int n = 0;
foreach (int i in a) {
n += (Math.Abs(i - a.Average()) / 100 <= 0.07) ? 1 : 0;
}
Console.WriteLine(n);
}
}
}
Const
n = 100;
var
a: array[1..n] of integer;
i: integer;
begin
//заполняем массив случайными значениями в диапазоне [0;100]
Randomize; //инициализация датчика случайных чисел
for i := 1 to n do a[i] := random(100);
i := 1; //1 - это два в нулевой степени
while i < n do
begin
writeln('a(', i, ')=', a[i]);
i := 2 * i; //удваиваем индекс, чтобы получить очередную степень двойки
end
end.
Результат работы программы:
a(1)=26
a(2)=21
a(4)=29
a(8)=74
a(16)=23
a(32)=44
a(64)=20
2048*1536=>3 145 728*3=>9 437 184 byte=>9 437,184 Kb=>9,437184 Mb
Var i:integer; n,sum:real;
Begin
Write('Введите 10чисел: ');
while (i<>10) do begin
readln(n);
sum:=sum+n;
i:=i+1;
end;
writeln('Сумма этих чисел - ',sum);
end.