Створіть програму з використанням одновимірного масиву для 10 цілих чисел зі 100. 1) знайдіть сумму масиву , виведіть її на екран 2) знайдіть добуток масиву, виведіть її на екран
begin Writeln('Вычислите S поверхности параллелепипеда.'); Writeln('Введите исходные данные:'); Write('Длина(см)? '); Readln(a); Write('Ширина(см)? '); Readln(b); Write('Высота(см)? '); Readln(c); s := 2 * (a * b + b * c + c * a); Writeln('Площадь поверхности: ', s, ' кв.см.') end.
Тестовое решение: Вычислите S поверхности параллелепипеда. Введите исходные данные: Длина(см)? 9 Ширина(см)? 7.5 Высота(см)? 5 Площадь поверхности: 300 кв.см.
Var a: integer;begin read(a); if (a >= 1) and (a <= 31) then write(a,' ',1); if (a >= 32) and (a <= 59) then write((a - 31),' ',2); if (a >= 60) and (a <= 90) then write((a - 59),' ',3); if (a >= 91) and (a <= 120) then write((a - 90),' ',4); if (a >= 121) and (a <= 151) then write((a - 120),' ',5); if (a >= 152) and (a <= 181) then write((a - 151),' ',6); if (a >= 182) and (a <= 212) then write((a - 181),' ',7); if (a >= 213) and (a <= 243) then write((a - 212),' ',8); if (a >= 244) and (a <= 273) then write((a - 243),' ',9); if (a >= 274) and (a <= 304) then write((a - 273),' ',10); if (a >= 305) and (a <= 334) then write((a - 304),' ',11); if (a >= 335) and (a <= 365) then write((a - 334),' ',12); readln; readlnend.
var
a:array:integer;
sum,ym:longint;
Begin
randomize; // позволяет каждый раз формировать рандомные числа
for i:=1 to 10 do
a[i]:=random(101); // создание рандомных чисел от 0 до 100
for i:=1 to 10 do
sum:=sum+a[i]; //считаем сумму элементов массива
ym:=1;
for i:=1 to 10 do
ym:=ym*a[i]; // считаем произведение элементов массива
writeln(sum); // выводим сумму элементов массива
writeln(ym); // выводим произведение элементов массива
END.
программа написана на языке Pascal