Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10; for i: =1 to 20 do write(a[i]) end.
Вообщем стратегия такая: сначала наращиваем мощности, а потом копим печеньки Программа вычисляет оптимальную максимальную мощность. Это оказывается 9 или 10 печенек в день (т.е 8 или 9 духовок) в минимуме в общем целом на это уйдет 108 дней
1. var f_name,s_name:string; begin writeln('Введите имя'); readln(f_name); writeln('Введите фамилию'); readln(s_name); writeln('Доброе утро ',f_name,' ',s_name); end.
2. var s,a:real; i:integer; begin s:=0; for i:=1 to 5 do begin writeln('Введите число №',i); readln(a); s:=s+a; end; writeln('Сумма=',s) end.
3. var s,a:real; i:integer; begin s:=1; for i:=1 to 3 do begin writeln('Введите число №',i); readln(a); s:=s*a; end; writeln('Произведение=',s); end.
4. var a, b, c, max: integer; begin write ('Введите три числа: '); readln (a, b, c); if a >= b then max := a else max := b; if c > max then max := c; writeln ('Максимальное число: ', max); end.
Program massiv;
Var a:array[-10..10] of integer;
Begin
For i:=1 to 20 Do Read(a[i]);
For i:=1 to 20 Do a[i]:=round(a[i]/10);
For i:=1 to 20 Do Write(a[i]);
end.
И вообще можно написать так
Program massiv;
Var a:array[-10..10] of integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:=round(a[i]/10);
Write(a[i]);
end;
end.