В номере 1-ответ 3
В номере 2-ответ 4
В номере 3-ответ 1
Удачи))
Кнопка Ж делает текст жирным
Var i, k: integer;
var arr: array[0..19] of integer;
begin
for i := 0 to 19 do
read(arr[i]);
for i := 0 to 19 do
if arr[i] mod 10 = 4 then
k := k + 1;
writeln(k);
end.
Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.
<span>контекстное меню значка Мой компьютер – Свойства – Имя компьютера</span>