Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
1
Решение задач с использованием массивов
2
Домашнее задание Учебник. § 41,42. Задачник- практикум. Том 1. П Задачи: На «3». Заполнить и вывести массив T(7), заданного а) с помощью функции Random; б) с клавиатуры. На «4». В массиве T(7), заданного с клавиатуры, найти: а) максимальный элемент; б) сумму всех элементов На «5». В массиве T(7), заданного с клавиатуры, найти: а) найти количество отрицательных элементов; б) сумму элементов, которые больше 5
3
В массиве E(11), заданного генератором случайных чисел, найти: а) найти количество положительных элементов;
4
program s1; var E:array[1..11] of real; i, s: integer; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=0; for i:=1 to 11 do if E[i]>0 then s:=s+1; writeln(s=',s:5:1); end.
![program s1; var E:array[1..11] of real; i, s: integer; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=0; for i:=1 to 11 do if E[i]>0 then s:=s+1; writeln(s=',s:5:1); end.](http://images.myshared.ru/4/281941/slide_4.jpg "program s1; var E:array[1..11] of real; i, s: integer; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=0; for i:=1 to 11 do if E[i]>0 then s:=s+1; writeln(s=',s:5:1); end.")
5
В массиве E(11), заданного генератором случайных чисел, найти: б) найти произведение элементов, которые меньше 3
6
program s1; var E:array[1..11] of real; i: integer; S:real; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=1; for i:=1 to 11 do if E[i]
![program s1; var E:array[1..11] of real; i: integer; S:real; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=1; for i:=1 to 11 do if E[i]](http://images.myshared.ru/4/281941/slide_6.jpg "program s1; var E:array[1..11] of real; i: integer; S:real; begin for i:=1 to 11 do E[i]:=random*10-5; for i:=1 to 11 do write(E[i]:5:1,' '); s:=1; for i:=1 to 11 do if E[i]")
Еще похожие презентации в нашем архиве:
![Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]](/thumbs/4/258608/big_thumb.jpg "Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]")
![PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.](/thumbs/6/682838/big_thumb.jpg "PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.")
![Упорядоченный набор данных одного типа называется массивом. Каждый элемент массива описывается в общем виде как A[i], где A – имя массива, i – номер элемента.](/thumbs/5/524040/big_thumb.jpg "Упорядоченный набор данных одного типа называется массивом. Каждый элемент массива описывается в общем виде как A[i], где A – имя массива, i – номер элемента.")
![Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.](/thumbs/6/535442/big_thumb.jpg "Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.")
