Не понятно что значит "<span> 2 и 3 массива</span>", остальное сделанно
var
a: array[1..100] of integer;
i, n, sum: integer;
begin
n := 30;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(35) - 10;
write(a[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to n do
if a[i] > 0 then
sum := sum + a[i];
writeln('sum = ', sum);
end.
Изи , Pentium G2020 , 2.9GHz - процессор
LGA1155 - сокет(socket)
ASUS P8B75- M LX PLUS - материнская плата
Intel B75 Chipset - чипсет процессора
Intel Pentium G2020 2.9GHZ - процессор
2048Mb DDR3 - оперативная память
250.0Gb - скорее всего либо жёсткий диск , либо ссд , (Hdd , либо SSD)
VENTO TA863 - блок питания
ATX/sound/LAN - скорее всего звуковая и сетевая карта
Какой класс?
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
Ну-с...
1: вещественное (относится к простым типам данных)
2: строка (структурированный тип данных)
3: логический (простой тип)
4: вещественное
5: строка
6: а вот что до этого типа данных, то по идее ее можно записать в какой-то из структурированных типов(массив, строка, чаще применяют объект т.е. хреновина включающая в себя несколько видов полей - структура, класс )
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415