Если не видно на скриншоте (Я правильно понял,как нужно сделать?)
1)
Program v1;
var a:array[1..15]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(70)+10;
write('Значение матрицы: ');
for i:=1 to 15 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 15 do
if a[i]>50 then kol:=kol+1;
writeln(kol);
end.
2)
Program v1;
var a:array[1..20]of integer;
i,n,kol:integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(100)+50;
write('Значение матрицы: ');
for i:=1 to 20 do write(a[i]:5); writeln;
kol:=0;
for i:=1 to 20 do
if a[i]<100 then kol:=kol+1;
writeln('Количество элементов массива, значение которых меньше 100: ',kol);
end.
1. Условная конструкция if условие then тогда else иначе
Записываем формулу, не забывая о скобках. Квадратный корень - sqrt, модуль - abs.
Код (Pascal):
var x, y: real;
begin
read(x);
if x >= 0 then
y := sqrt(3 * x * x - 1) + 3
else
y := (7 * x + 3) / abs(x - 1);
write(y)
end.
Пример ввода:
2
Пример вывода:
6.3166247903553998
2. Трехзначное число является палиндромом, если первая и последняя цифра одинаковые. Первую цифру можно найти как целую часть от деления на 100, последнюю - как остаток от деления на 10.
Код (Pascal):
var n: integer;
begin
read(n);
if n div 100 = n mod 10 then
write('YES')
else
write('NO')
end.
Пример ввода:
707
Пример вывода:
YES
сообщение об ошибке (или 900)
Объяснение:
В программе есть несколько ошибок:
- в строчке c1 = 10 вместо = должно быть :=
- в строчке write(Apb(ci,c2)*Apb(c1,c2); вместо ci видимо должно быть c1; кроме того, не хватает одной закрывающей скобки.
Если все эти ошибки исправить, получится такая программа:
program Primer;
var c1, c2: integer;
function Apb(a, b: integer): integer;
begin
Apb := a + b;
end;
begin
с1 := 10;
с2 := 20;
write(Apb(c1, c2) * Apb(c1, c2));
end.
Apb - просто функция, которая выдает сумму своих аргументов. Тогда
Apb(c1, c2) * Apb(c1, c2) = (с1 + с2) * (с1 + с2) = (10 + 20) * (10 + 20) = 900.
Это число и будет выведено на экран инструкцией write