Урок 14. Паскаль с нуля. Массивы

[borobash]

Спасибо за ваши уроки. Вы очень хорошо объясняете. Жду сортировку пузырьком.

[Show-mduf]

Здравствуйте, Вас смотрю очень долго и с нетерпением ждал ролика

[DaSmI]

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

[AuthorityR]

УРА НАКОНЕЦТВО COMEBACK. Капец, у тебя жестко голос поменялся... Помужнел)

[Show-mduf]

Следующий ролик наверное про сортирование пузырьком

[abdushevarlan]

Дмитрий вы решили задачу 14, 1???? Если да то пожалуйста напишите мне. А то я не понимаю как там строчный массив "day" вывели так что он был на каждой строчке! Пожалуйста отзовитесь!

[Show-mduf]

Слушайте Дмитрий, а вас нет в вконтакте

[svitlanaviktorivna]

Задача 14.3
var a:array [1..5] of integer;
b:array [1..5] of integer;
c:array [1..5] of real;
i:integer;
begin
for i:=1 to 5 do
a[i]:=random (1, 10);
Writeln ('Массив А:');
for i:=1 to 5 do
Write (a[i]:6);
Writeln();
for i:=1 to 5 do
b[i]:=random (1, 10);
Writeln ('Массив B:');
for i:=1 to 5 do
Write (b[i]:6);
Writeln();
for i:=1 to 5 do
c[i]:=((a[i]*b[i])/2);
Writeln ('Массив C, рассчитывался по формуле c[i]:=(a[i]*b[i])/2:');
for i:=1 to 5 do
Write (c[i]:6);
end.

[andrejrazumovskij]

Я t записал integer но записал просто write(t/7)

[Dimker]

14.1
program nedelya;
const
day: array [1..7] of string =('Пн: ', 'Вт: ', 'Ср: ', 'Чт: ', 'Пт: ', 'Сб: ', 'Вс: ');
var
t: array [1..7] of real;
s, sr:real;
i:integer;
begin
writeln('Введите температуру за неделю:');
s:=0;
for i:= 1 to 7 do
begin
write(day[i]);
readln(t[i]);
s:=s+t[i];
end;
sr:=s/7;
writeln('Средняя температура за неделю: ', sr:6:1);
end.

[fish_in_it]

PROGRAM VI;
var y, I : integer;
var T : REAL;

VAR MAS1:ARRAY[1..7] OF STRING=('ПН', 'ВТ', 'СР', 'ЧТ', 'ПТ', 'СБ', 'ВС');
VAR MAS2:ARRAY[1..7] OF REAL;
begin
WRITELN('ВВЕДТЕ ТЕМПЕРАТУРУ');

FOR I:=1 TO 7 DO
begin
WRITE(MAS1[I]);
READ(MAS2[I]);
T:= T+MAS2[I];
END;

T:= T/7;
WRITELN(T:8:1);
end.