На дед мороза надейся ,а сам не плашай
Вот так, если я правильно понял тебя(качай, я кинул в блокноте)
______________________________________________________________
"СПАСИБО" и оценку ответа, так я буду знать, что помог. Удачи!
Материнская плата - основа системы. Без нее любое другое устройство не будет работать
Центральный процессор - мозг вычислительной машины. Именно он выполняет расчеты и операции.
Видеокарта позволяет выводить на экран изображение. Именно она помогает прямое зрительное взаимодействие пользователя с компьютером возможным (ну, и монитор, конечно)
ОЗУ - временная память компьютера. Сюда вносятся все вычисления, которые производит центральный процессор и процессор видеокарты. Это позволяет ускорить работу компьютера, потому что обращаться к оперативной памяти процессору проще, чем копаться в тысячах файлов жесткого диска
Жесткий диск хранит информацию пользователя, позволяет иметь к ней доступ, изменять ее и передавать
Program arr;
var
a: array[1..15] of integer;
count,count_odd,num,sum,mult: integer;
begin
count := 1;
count_odd := 1;
num := 3;
sum := 0;
mult := 1;
while count <= 15 do
begin
a[count] := num;
count := count + 1;
num := num + 3;
end;
while count_odd <= 15 do
begin
sum := sum + a[count_odd];
mult := mult * a[count_odd];
count_odd := count_odd + 2;
end;
writeln('Массив из 15 элементов: 3, 6, 9, ..., 45');
writeln('Сумма элементов с нечетными индексами: ', sum);
writeln('Произведение элементов с нечетными индексами: ', mult);
end.
Begin
for i:=1 to 30 do
a[i]:=random(50)-20;
for i:=1 to 30 do
if a[i]<0 then sum:=sum+a[i];
writeln(sum);
readln(k);
for i:=1 to 30 do
if (a[i]>0) and (a[i]<=k) then kol:=kol+1;
writeln(kol);
end.
