Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10] - презентация

1 Проверка пройденного материала

2 Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10] of Integer; I,N:Integer; Begin For I:=1 to N do b[1]:=round(random*10); For I:=1 to N do Write(b[I], ); Readln; End.

3 Решение задач с использованием массивов

4 ЗадачаНачальн ое присваи вание Действия Наименьшее значение min:= A[1] If A[I] < min then min:=A[I] Наибольшее значение max:=A[1 ] If A[I] > max then max:=A[I] Сумма элементов S:=0S:=S+A[I] Произведение элементов S:=1S:=S*A[I]

5 Домашнее задание Учебник. § 41,42. Задачник- практикум. Том 1. П Задачи: На «3». Заполнить и вывести массив G(5), заданного а) с помощью функции Random; б) с клавиатуры. На «4» и «5». В массиве F(12), заданного с помощью функции Random, найти: а) минимальный элемент; б) произведение всех элементов

6 В массиве K(6) вещественных чисел, заданного с клавиатуры, найти: а) максимальный элемент;

7 program s1; var K:array[1..6] of real; i: integer; max:real; begin for i:=1 to 6 do readln(K[i]); for i:=1 to 6 do write(K[i]:5:1,' '); max:=К[1]; for i:=1 to 6 do if К[i]>max then max:=K[i]; writeln('max=',max:5:1); end.

8 В массиве K(6) вещественных чисел, заданного с клавиатуры, найти: а) максимальный элемент; б) сумму всех элементов

9 program s2; var K:array[1..6] of real; i: integer; s:real; begin for i:=1 to 6 do readln(K[i]); for i:=1 to 6 do write(K[i]:5:1,' '); s:=0; for i:=1 to 6 do s:=s+K[i]; writeln('s=',s:5:1); end.