//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ReadlnString('Вводите').ToIntegers; mas.println;
var a:=readinteger('Введите число a:');
Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);
end.
У тебя сложные if. Включи операции внутри в блоки begin - end
1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
a[i] := random(10);
write (a[i], ' ')
end;
writeln;
writeln('b:');
for i:=1 to 8 do
begin
b[i] := a[i]*a[i];
write (b[i], ' ')
end;
end.
Пример:
<span>a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49
2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
a[i] := random(50)+10;
write (a[i], ' ')
end;
writeln;
for i:=1 to 9 do
if a[i] mod 2 = 0
then writeln(a[i], ' - четное число')
else writeln(a[i], ' - нечетное число')
end.
Пример:
a:
55 51 18 35 33 56 15 56 47
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число </span>
Машинный код из программы обычно получается с помощью программы-компилятора или программы-транслятора
Первый случай: " Вася Петров, подойди к кабинету директора!" Здесь сообщение конкретно для Васи Петрова.
Второй случай: " Всем ученикам собраться в актовом зале для проведения собрания." Ну, тут сообщения для всех.
Правильность не гарантирую, но, вроде, так.
