//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.
Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2
Тебе на поскале судя по всему надо, я его давно изучал синтаксис позабыл но алгоритм могу подсказать
1)
Var arr:массив(от 0 до 6);
begin
пока i<6 //ввод массива
readln(arr[i]);
конец;
writeln((i[1]+i[5])/2);//вывод среднего числа
end.
2)задача описана некорректно
3)
Var arr:массив(от 0 до 29),n:integer;
begin
пока i<30 //ввод массива
readln(arr[i]);
конец;
пока j<29
n=n+arr[j];
конец;
writeln(N/30);//вывод среднего числа
end.
Устройство современного компьютера:
Процессор
Память
Оперативная память
Долговременная память
Жесткий магнитный диск
Флеш-память
Лазерные диски
CD
DVD
Устройство ввода
Клавиатура
Мышка
Сканер
Графический планшет
Цифровая камера
Джойстик
Устройства вывода
Монитор
Принтер
Струйный
Лазерный
Матричный
Ответ:
данные только одного типа
Объяснение:
В поле реляционной базы данных могут быть записаны
данные только одного типа
Таков принцип реляционных БД. Для типа можно определить кол-во необходимой памяти для хранения, удобно накладывать условия на значение (например даты не раньше 2000 года) и не только...
Program Primer;
var F:array [1..16] of integer; d, kch: integer;
begin
for d:=1 to 16 do read(F[d]);
kch:=0;
for d:=1 to 16 do
if (F[d] mod 2 = 0) then kch:=kch+1;
writeln(kch);
end.
