Экономика
Испрвьте ошибкиProgram ZAD00; {}
uses crt;
var a,b:array[1..20] of real;
i,j:integer;
mina,minb,s:real;
Begin
{------------- заполнение массива А}
for i:=1 to 7 do begin write('введите элементы a[',i,']='); read(a[i]); end;
{------------- заполнение массива B}
for i:=1 to 9 do begin write('введите элементы b[',i,']='); read(b[i]); end;
{------------- min в массиве А}
mina:=a[1];
for i:=1 to 7 do begin
if a[i] end;
{------------- min в массиве B}
minb:=b[1];
for i:=1 to 9 do begin
if b[i] end;
{------------- сложение minA и minB}
s:=mina+minb;
{--------- вывод результатов на экран}
for i:=1 to 7 do begin write(a[i],' '); writeln;
for i:=1 to 9 do begin write(b[i],' '); writeln;
writeln('minA=',mina);
writeln('minB=',minb);
writeln('сумма их s=', s);
End.
РЕБЯТА ПОМОГИТЕ КТО СКОЛЬКО СМОЖЕТ УМОЛЯЮ !!!!Задачи На «3» балла (кому больше и не надо, для ТРОЕЧНИКОВ). Подсчитать количество всех положительные числа, отрицательных и нулевых. Вывести исходный массив и количество этих чисел sot=(отрицательных), spl=(положительных), snu=(нулевых); а1=5, а2=4, а3=-3, а4=1, а5=0, а6=-4, а7=, а8=25, а9=-8, а10=0, а11=-17, а12=-1. Дополнительная оценка, если появляется дополнительная возможность ввода своих чисел с клавиатуры с клавиатуры. Для тех, кто претендует на большее. Разбалловка: выполнение только задание А) (своего варианта) дает вам одну оценку по пятибалльной системе, выполнение заданий А) и Б) – дополнительную оценку, выполнение заданий А), Б) и В) – есть возможность получить 5 баллов за III четверть. Все работы делать с комментариями. Задача по «нарастающей»: А) По трем введенным с клавиатуры сторонам необходимо выяснить: 1 вариант (ПК №1, 5, 9) - могут ли эти стороны образовать треугольник; 2 вариант (ПК №2,6,10) - является ли этот треугольник прямоугольным; 3 вариант (ПК №3,7, Урсуленко)- является ли этот треугольник равнобедренным; 4 вариант (ПК №4, 8)- является ли этот треугольник равносторонним. Б) Зациклить эту программу, тем самым дать возможность повторять запрос, используя «Желаете повторить? Y/N». В) Спец задание 9 класс («5» баллов за III четверть, при любом раскладе текущих оценок): все варианты в одной программе, + сделать задачу для троечников.
