нужно решить задачи на языке паскаль

[шармила]

Nº1 Внести в таблицу (массив) количество деталей,
изготовленных рабочим в каждый из 20 рабочих дней
месяца и ответить на вопрос: Сколько всего деталей
он изготовил за последнюю рабочую неделю
(5 дней)?
Nº 2 Внести в таблицу данные измерения ночной температуры
воздуха за первую декаду ноября.
Определить среднее значение температурных показателей.
Nº 3 Внести в таблицу 12 произвольных целых числовых значений.
Найти и вывести на экран их произведение.

[сфинкс]

5 минут и готово... на языке высочайшего уровня qbasic qb64

Dim d(20): s = 0: Randomize Timer
For i = 1 To 20: d(i) = Int(Rnd * 100): ? d(i);: Next
For i = 20 - 4 To 20: s = s + d(i): Next: ?
? "За 5 дней"; s: ?

Dim t(10): sum = 0
For i = 1 To 10: t(i) = Int(Rnd * 7) - 3: sum = sum + t(i): ? t(i);: Next
?: ? "Средняя Т="; sum / 10: ?

Dim c(10): summa = 0: pro = 1
For i = 1 To 10: c(i) = Int(Rnd * 8) + 1: summa = summa + c(i): pro = pro * c(i)
? c(i);: Next: ?
? "Сумма"; summa, "Произведение "; pro
End

На другие языки переводим сами

онлайн лично у меня работает только случайные не меняются

https://qbjs.org/?code=RGltIGQoMjApO...JQcm8gIjvEQgo=

[newerow1989]

Перевожу с языка высочайшего уровня qbasic qb64 на привычный Паскаль.

№ 1:

const n = 20;
var i, s: integer;
    p: array[1..n] of integer;
begin
   Randomize;
   for i:=1 to n do
   begin
      p[i]:=Random(100);
      Write(p[i]:3, '  ');
   end;
   Writeln;
   Writeln;
   s:=0;
   for i:=n-4 to n do
      s:=s+p[i];
   Writeln(s);
   Readln;
end.

№ 2:

const n = 10;
var i: integer;
    s: real;
    p: array[1..n] of real;
begin
   Randomize;
   s:=0;
   for i:=1 to n do
   begin
      p[i]:=Random(7)-3+Random;
      Write(p[i]:3:1, '  ');
      s:=s+p[i];
   end;
   Writeln;
   Writeln;
   s:=s/n;
   Writeln('Sted T = ', s:3:1);
   Readln;
end.

№ 3:

const n = 10;
var i, s, pr: integer;
    p: array[1..n] of integer;
begin
   Randomize;
   s:=0;
   pr:=1;
   for i:=1 to n do
   begin
      p[i]:=Random(8)+1;
      Write(p[i]:3, '  ');
      s:=s+p[i];
      pr:=pr*p[i];
   end;
   Writeln;
   Writeln;
   Writeln('Summa = ', s:3);
   Writeln('Proiz = ', pr:3);
   Readln;
end.

[шармила]

а можно пожалуйста тоже самое, только чтобы в заданиях не рандомные числа были, а вносились с клавиатуры

[Arigato]

Поменяйте на Readln.

[шармила]

а можете пожалуйста помочь поменять все?

[Arigato]

Все менять не нужно, только одну строчку меняйте.

[сфинкс]

Мне Паскаль проверить негде
даже онлайн с вводом вручную не пашет

Думаю надо менять:

было
p[i]:=Random(100);
стало
p[i]:=Readln;

было
p[i]:=Random(7)-3+Random;
стало
p[i]:=Readln;

было
p[i]:=Random(8)+1;
стало
p[i]:=Readln;

Зато язык высочайшего уровня qbasic qb64
сразу создаёт идеально и менять никогда нечего



Ответ на претензию ниже:

в задании про ввод с клавиатуры ничего

плюс вводить с клавиатуры: время терять и себя не уважать
и пользователя не уважать да и проверяющих не уважать

даже data & read и то уважение пользователя

[p51x]

Сообщение от сфинкс

Зато язык высочайшего уровня qbasic qb64
сразу создаёт идеально и менять никогда нечего

И гле же в вашем языке помойного уровня qb64 ввод вместо рандома? Или Rnd сам сообразит, что надо с консоли ввести? И менять ничего не надо?

[ViktorR]

шармила

а можете пожалуйста помочь поменять все?

Рано это произойдёт или поздно, но вам придётся научиться не только писать (анекдот про писателя), но и читать.
Откройте книжку. Найдите описание ввода и выполните необходимую замену сами.

Верю, что вы справитесь сами.