ПРАКТИЧНА РОБОТА № 6 9 клас Й.Я.Ривкінд Знаходження сум і кількостей значень

[@katiapastushok6381]

Дякую але було б добре якби залишали програмні коди в описі

[@ДаніілСереда]

Дуже Вам дякую.

[@Анатолий-ф8р5ъ]

Спас меня, спасибо!

[@НастяСугоняко]

Очень помогло! Спасибо!

[@valerikaluzhna9016]

Спасибо огромное, вы очень помогли !!!

[@ВишенькаЧокнута]

Дякую

[@morozgas3189]

Спасибо огромное

[@pyrogovsergiy1836]

А можна код програми виконання проекту

[@МаксДякив]

По більше приктичних роби ок

[@МаксДякив]

Круть

[@НастяКуринная-у4й]

Вибиває помилку в 36 ряді, як виправити?

[@elyzavetatimoshenko7369]

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Memo1: TMemo;
private
public
end;
var a: array[1..7] jf real;
i,n:integer;
s,s_t: real;
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=0;
for i:=1 to 7 do
a[i]:=StrToFloat(Memo1.Lines[i-1]);
for i:=1 to 7 do
s:=s+a[i];
s_t:=s/7;
Label12.Caption:=FloatToStr(s_t)
end.

[@andrew_hordienko]

Что это?

[@ArtemKalyta]

код:
var a: array[1..7] of real;
i,n:integer;
s,st: real;
s:=0;
for i:=1 to 7 do
a[i]:=Strtofloat(Memo1.Lines[i-1]);
for i:=1 to 7 do
s:=s+a[i];
st:=s/7;
Label2.Caption:=FloatToStr(round(st*100)/100);
n:=0;
for i:=1 to 7 do
a[i]:=Strtofloat(Memo1.Lines[i-1]);
for i:=1 to 7 do
if a[i]>0 then n:=n+1;
Label4.Caption:=IntToStr(n);

[@dgerelonatalija2655]

Лучший!

[@whyisitos]

лучший просто

[@pyrogovsergiy1836]

Дякую тобі велике

[@СноваСнова-р3и]

Доброго дня!У мене видає помилку під час виконання проекту.Можете,будь ласка,скинути сам код?

[@lazarus7183]

В кінці відео присутні скріни кодів.

[@Vokeez2]

СПАСИПА БАЛЬШОЕ У МЕНЯ 2 ЗА РА БОТУ!!!!11111!!!!!

[@victoriapikiner2692]

Писать научись!

[@user-gt45]

величезне спасибі за уроки.
побажання: зробіть щось з клавіатурою або з мікрофоном. дуже заважає записаний звук клавіш.

[@ЛізаВознюк-п3с]

А навіщо ще раз зберігати? (5:35)

[@cryptovdml]

Занадто швидко говориш, тяжко розібрати функції кодів

[@allektro_go]

Я зкину ісходний код коли зроблю цю недо програму для підрахунку суми і кількості рядків

[@Legomino]

ну і де

[@ВадимСлободянюк-н3у]

Кому это нужно в 2020 году? Учите детей Java, Kotlin, Swift, C#, JavaScript, C++

[@vitaliygerasimov470]

Може сразу с Ассемблера начинать. Реально минимум полкласа вообще не понимают как работает делфи или паскаль вообще. Это реально.

[@владШевка]

Занадто швидко говориш, кто смотрит не роботы!!!!

[@allektro_go]

ляяяяяяяяяяяяя ви що ісходнічки не могли кинути ?

[@ДмитроНичипорук-ш3ь]

Будь-ласка можете скинути мені прописку?