Укажите имена файлов,запишите которые верны. 1. lettet .txt 2. book! 3. name! 2.txt 4. dom? doc 5. windows.jpg - id650132320230219 от hdhhxhd662 19.02.2023 19:39

Question

Информатика: Укажите имена файлов,запишите которые верны. 1. lettet .txt 2. book! 3. name! 2.txt 4. dom? doc 5. windows.jpg

hdhhxhd662 · Accepted Answer

var a: array [1..10] of integer;

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

a[i]:=random(10)+1;

//В столбик

for i:=1 to 10 do

writeln(a[i]);

//В строчку

writeln();

for i:=1 to 10 do

write(a[i],' ');

//Среднее арифметическое

s:=0;

for i:=1 to 10 do

s:=s+a[i];

writeln();

writeln('Среднее арифметическое: ',s/10);

// количество элементов массива, значение которых равно 4

s:=0;

for i:=1 to 10 do

if (a[i]=4) then s:=s+1;

writeln('Количество элементов массива,',

' значение которых равно 4: ',s);

end.

Укажите имена файлов,запишите которые верны. 1. lettet".txt 2. book! 3. name! 2.txt 4. dom? doc 5. windows.jpg