Раз в обоих заданиях известно количество элементов в массиве, то имеет смысл использовать цикл for.

Задание №1

const n=20;
var
a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do begin
    a[i]:=random(1001);
    if a[i] mod 10 = 4 then s:=s+1;
end;
writeln(s);
end.

<span>Задание №2

const n=20;
var
a:array[1..n] of integer;
i,max,nmax:integer;
begin
max:=0;
for i:=1 to n do begin
    a[i]:=random(1001);
    if a[i] >max then begin
      nmax:=i;
      max:=a[i];
    end;
    write(a[i]:5);
end;
writeln;
writeln(nmax,' ',a[nmax]);
end.

</span>

0 0

4 года назад

Программа в Паскале. Убедительная просьба: прежде чем выкладывать решение, попробуйте её в самой программе.

isi61

В паскале попробывал все получилось)

var
a,b,c,e:integer;
begin
read(a);
c:=0;
for e:=1 to a
do
begin
read(b);
if b mod 10=3
then
c:=c+1;
end;
write(c);
end.

0 0

4 года назад

1024=?мб 8000бит=?кб 0,32мб=?байт 0,01гб=?мб 2террабайта=?кб

Рустам Салямов

8000бит/8/1024=0.97Кбайт
0,32Мбайта*1024*8=2621.44Байт
0,01Гбайт*1024=10,24Мбайт
2Тр*1024*1024*1024=2147483648Кбайт (здесь неуверен)

0 0

4 года назад

Ребят, помогите пожалуйста составить таблицу истинности (18-й вариант) (15 баллов)

АНДРЕАС1611 [7]

Таблица истинности дана во вложении

0 0

2 года назад