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

Задачник: drive.google.c...

[@borobash]

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

[@ДмитрийЛапко-л1н]

А вам спасибо за мотивацию. Сортировки будут.

[@DaSmI1]

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

[@Show-md5uf]

Спасибо за такой качественный контент

[@ДмитрийЛапко-л1н]

Спасибо)

[@Show-md5uf]

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

[@Waifull]

Спасибо огромное смотрю и жду ещё)))

[@AuthorityR]

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

[@MrDobryak333]

Спасибо вам

[@sergeykomarov617]

пушка

[@-kawasaki4798]

Хорошее видео.

[@user-nc2qu4ld2g]

Спасибо.

[@Show-md5uf]

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

[@svitlanaviktorivna2157]

Задача 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.

[@abdushevarlan5403]

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

[@ДмитрийЛапко-л1н]

for i:=0 to 6 do
writeln(day[i]);

[@Show-md5uf]

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

[@ДмитрийЛапко-л1н]

страничка есть, но не был там очень давно.

[@Dimker381]

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.

[@andrejrazumovskij7295]

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

[@fish_in_it2194]

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.